C/C++ Users Group Library 1996 July/C-C++ Users Group Library July 1996.iso/vol_200/267_01/test85.asm

Assembly Source File | 1989-01-11 | 3.6 KB | 339 lines

        TITLE    "8085 Cross-Assembler Test Source File"
        PAGE    60
;
; The 8085 opcodes in opcode numerical order:
;
BYTE        EQU    012H
WORD        EQU    034H
PORT        EQU    056H
ADDRESS        EQU    07890H

; 000H - 00FH.

        NOP
        LXI    B, WORD
        STAX    B
        INX    B
        INR    B
        DCR    B
        MVI    B, BYTE
        RLC
                    ; 008H is undefined.
        DAD    B
        LDAX    B
        DCX    B
        INR    C
        DCR    C
        MVI    C, BYTE
        RRC

; 010H - 01FH.

                    ; 010H is undefined.
        LXI    D, WORD
        STAX    D
        INX    D
        INR    D
        DCR    D
        MVI    D, BYTE
        RAL
                    ; 018H is undefined.
        DAD    D
        LDAX    D
        DCX    D
        INR    E
        DCR    E
        MVI    E, BYTE
        RAR

; 020H - 02FH.

        RIM
        LXI    H, WORD
        SHLD    ADDRESS
        INX    H
        INR    H
        DCR    H
        MVI    H, BYTE
        DAA
                    ; 028H is undefined.
        DAD    H
        LHLD    ADDRESS
        DCX    H
        INR    L
        DCR    L
        MVI    L, BYTE
        CMA

; 030H - 03FH.

        SIM
        LXI    SP, WORD
        STA    ADDRESS
        INX    SP
        INR    M
        DCR    M
        MVI    M, BYTE
        STC
                    ; 038H is undefined.
        DAD    SP
        LDA    ADDRESS
        DCX    SP
        INR    A
        DCR    A
        MVI    A, BYTE
        CMC

; 040H - 04FH.

        MOV    B, B
        MOV    B, C
        MOV    B, D
        MOV    B, E
        MOV    B, H
        MOV    B, L
        MOV    B, M
        MOV    B, A
        MOV    C, B
        MOV    C, C
        MOV    C, D
        MOV    C, E
        MOV    C, H
        MOV    C, L
        MOV    C, M
        MOV    C, A

; 050H - 05FH.

        MOV    D, B
        MOV    D, C
        MOV    D, D
        MOV    D, E
        MOV    D, H
        MOV    D, L
        MOV    D, M
        MOV    D, A
        MOV    E, B
        MOV    E, C
        MOV    E, D
        MOV    E, E
        MOV    E, H
        MOV    E, L
        MOV    E, M
        MOV    E, A

; 060H - 06FH.

        MOV    H, B
        MOV    H, C
        MOV    H, D
        MOV    H, E
        MOV    H, H
        MOV    H, L
        MOV    H, M
        MOV    H, A
        MOV    L, B
        MOV    L, C
        MOV    L, D
        MOV    L, E
        MOV    L, H
        MOV    L, L
        MOV    L, M
        MOV    L, A

; 070H - 07FH.

        MOV    M, B
        MOV    M, C
        MOV    M, D
        MOV    M, E
        MOV    M, H
        MOV    M, L
        HLT
        MOV    M, A
        MOV    A, B
        MOV    A, C
        MOV    A, D
        MOV    A, E
        MOV    A, H
        MOV    A, L
        MOV    A, M
        MOV    A, A

; 080H - 08FH.

        ADD    B
        ADD    C
        ADD    D
        ADD    E
        ADD    H
        ADD    L
        ADD    M
        ADD    A
        ADC    B
        ADC    C
        ADC    D
        ADC    E
        ADC    H
        ADC    L
        ADC    M
        ADC    A

; 090H - 09FH.

        SUB    B
        SUB    C
        SUB    D
        SUB    E
        SUB    H
        SUB    L
        SUB    M
        SUB    A
        SBB    B
        SBB    C
        SBB    D
        SBB    E
        SBB    H
        SBB    L
        SBB    M
        SBB    A

; 0A0H - 0AFH.

        ANA    B
        ANA    C
        ANA    D
        ANA    E
        ANA    H
        ANA    L
        ANA    M
        ANA    A
        XRA    B
        XRA    C
        XRA    D
        XRA    E
        XRA    H
        XRA    L
        XRA    M
        XRA    A

; 0B0H - 0BFH.

        ORA    B
        ORA    C
        ORA    D
        ORA    E
        ORA    H
        ORA    L
        ORA    M
        ORA    A
        CMP    B
        CMP    C
        CMP    D
        CMP    E
        CMP    H
        CMP    L
        CMP    M
        CMP    A

; 0C0H - 0CFH.

        RNZ
        POP    B
        JNZ    ADDRESS
        JMP    ADDRESS
        CNZ    ADDRESS
        PUSH    B
        ADI    BYTE
        RST    0
        RZ
        RET
        JZ    ADDRESS
                    ; 0CBH is undefined.
        CZ    ADDRESS
        CALL    ADDRESS
        ACI    BYTE
        RST    1

; 0D0H - 0DFH.

        RNC
        POP    D
        JNC    ADDRESS
        OUT    PORT
        CNC    ADDRESS
        PUSH    D
        SUI    BYTE
        RST    2
        RC
                    ; 0D9H is undefined.
        JC    ADDRESS
        IN    PORT
        CC    ADDRESS
                    ; 0DDH is undefined.
        SBI    BYTE
        RST    3

; 0E0H - 0EFH.

        RPO
        POP    H
        JPO    ADDRESS
        XTHL
        CPO    ADDRESS
        PUSH    H
        ANI    BYTE
        RST    4
        RPE
        PCHL
        JPE    ADDRESS
        XCHG
        CPE    ADDRESS
                    ; 0EDH is undefined.
        XRI    BYTE
        RST    5

; 0F0H - 0FFH.

        RP
        POP    PSW
        JP    ADDRESS
        DI
        CP    ADDRESS
        PUSH    PSW
        ORI    BYTE
        RST    6
        RM
        SPHL
        JM    ADDRESS
        EI
        CM    ADDRESS
                    ; 0FDH is undefined.
        CPI    BYTE
        RST    7

;
; Let's test the rest of the pseudo-ops while we're at it:
;
VARIABLE    SET    -1

        IF    VARIABLE
        DB    -1, , +1
        ELSE
        DB    +1, , -1
        ENDIF

VARIABLE    SET    VARIABLE EQ 0

        IF    VARIABLE
        DW    , +1
        ELSE
        DW    , -1
        ENDIF

        DS    10H

        DB    "EXPLOSION", 0DH, 0AH, 0

        END